home *** CD-ROM | disk | FTP | other *** search
/ CD World Haziran 1997 / CD World Haziran 1997.iso / Explorer Yardimcilari / PiXCL Tools / Shoicons.px_ / Shoicons.px
Encoding:
PiXCL source  |  1996-07-28  |  1.6 KB  |  75 lines
  1. Initialize:
  2.     WinGetActive(Win$)
  3.     UseCoordinates(PIXEL)
  4.     UseBackGround(TRANSPARENT,192,192,192)
  5.     DrawBackGround
  6.     WaitInput(100)  {let NT and 95 catch up}
  7.     InfoMenu(REMOVE)
  8.     WinLocate(Win$,100,100,400,320,Res){300x220}
  9.     Title$ = "Icons built into PiXCL"
  10.     WinTitle(Win$, Title$)
  11.     DirGet(SourceDir$)
  12.  
  13.  
  14.     SetMenu("&File",IGNORE,
  15.         "&Print Source",PrintSource,
  16.         "E&xit!",Leave,
  17.         ENDPOPUP,
  18.         "&Show Icons",Show_Icons,
  19.         ENDPOPUP,
  20.         "&About",About,
  21.         ENDPOPUP) 
  22.     
  23. Wait_for_Input:
  24.     WaitInput()
  25.  
  26.  
  27. Leave:
  28.     End
  29.  
  30.  
  31. PrintSource:
  32.     PXLsource$ = SourceDir$ + "\shoicons.pxl"
  33.     Cmd$ = "write /p " + PXLsource$
  34.     Run(Cmd$)
  35.     Goto Wait_for_Input
  36.  
  37. Show_Icons:
  38.     DrawIcon(5,5,0,0,ICON01)
  39.     DrawIcon(40,5,0,0,ICON02)
  40.     DrawIcon(75,5,0,0,ICON03)
  41.     DrawIcon(110,5,0,0,ICON04)
  42.     DrawIcon(145,5,0,0,ICON05)
  43.     DrawIcon(180,5,0,0,ICON06)
  44.  
  45.     DrawIcon(5,40,0,0,ICON07)
  46.     DrawIcon(40,40,0,0,ICON08)
  47.     DrawIcon(75,40,0,0,ICON09)
  48.     DrawIcon(110,40,0,0,ICON10)
  49.     DrawIcon(145,40,0,0,ICON11)
  50.     DrawIcon(180,40,0,0,ICON12)
  51.     
  52.     DrawIcon(5,75,0,0,ICON13)
  53.     DrawIcon(40,75,0,0,ICON14)
  54.     DrawIcon(75,75,0,0,ICON15)
  55.     DrawIcon(110,75,0,0,ICON16)
  56.     DrawIcon(145,75,0,0,ICON17)
  57.     
  58.     DrawIcon(5,120,0,0,INFORMATION)
  59.     DrawIcon(40,120,0,0,EXCLAMATION)
  60.     DrawIcon(75,120,0,0,QUESTION)
  61.     DrawIcon(110,120,0,0,STOP)
  62.  
  63.     Goto Wait_for_Input
  64.  
  65. About:
  66.     AboutUser("About PiXCL Icons",
  67.     "Sample Windows 95 program, created with the PiXCL 4.0 toolkit",
  68. "This program shows the seventeen embedded icons
  69. available in PiXCL, as well as the four system
  70. icons used with message boxes. Icons can be editted
  71. and replaced as required in PiXCL Runtimes.")
  72.  
  73.     Goto Wait_for_Input
  74.  
  75.